home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / HyperCard Related / APDA HyperCard Toolkits / HyperCard Video Toolkit 2.0 / HVT #2 / Advanced Material / Video Sources / blankVideo.p next >
Encoding:
Text File  |  1995-02-07  |  1.1 KB  |  61 lines  |  [TEXT/MPS ]
  1. (*
  2.     blankVideo - Set blanking for next search or play command.
  3.  
  4.     To compile and link this file using Macintosh Programmer's Workshop,
  5.  
  6.         pascal -w blankVideo.p
  7.         link -m ENTRYPOINT -o HyperCommands -rt XCMD=8000 -sn Main=blankVideo ∂
  8.             blankVideo.p.o "{MPW}"Libraries:interface.o
  9.  
  10.     Copyright © 1988 Apple Computer, Inc.
  11.  
  12.     2/88 - Initial coding by Harry R. Chesley.
  13. *)
  14.  
  15. {$R-}
  16.  
  17. {$S blankVideo }     { Segment name must be the same as the command name. }
  18.  
  19. unit DummyUnit;
  20.  
  21. interface
  22.  
  23. uses MemTypes, QuickDraw, OSIntf, HyperXCmd;
  24.  
  25. procedure EntryPoint(paramPtr: XCmdPtr);
  26.     
  27. implementation
  28.  
  29. type
  30.  
  31. Str31 = String[31];
  32.  
  33. procedure blankVideo(paramPtr: XCmdPtr); forward;
  34.  
  35. procedure EntryPoint(paramPtr: XCmdPtr);
  36.  
  37.     begin
  38.         blankVideo(paramPtr);
  39.     end;
  40.  
  41. procedure blankVideo(paramPtr: XCmdPtr);
  42.  
  43.     {$I XCmdGlue.inc}
  44.  
  45.     procedure Fail(errMsg: Str255); { set theResult and quit }
  46.         begin
  47.             paramPtr^.returnValue := PasToZero(errMsg);
  48.             exit(blankVideo);
  49.         end;
  50.  
  51.     {$I VideoUtil.inc}
  52.  
  53.     begin
  54.         if paramPtr^.paramCount <> 0 then Fail('parameter count is not 0');
  55.  
  56.         { Set the global that specifies blanking... }
  57.         SetStrGlobal('blankNextVideo','true');
  58.     end;
  59.  
  60. end.
  61.